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ABSTRACT 


A Report Origination System (ROS) has been 
implementedr,/ using an inexpensive microcomputer 
system, to help ease the administrative burden 
facing Navy shicboard managers. The system is an 
interactive line editing systemr, with optional 
prompting, which enables a person who is unfami-= 
lian withthe weperct format to respond to auweries 
iN orger to eait a highly formatted report. 
Automatic error checking has been performed using 
a orevious edition of the report as a basis. The 
System allows creation of new formatted reports. 
The use of a general ourpose microcomputer system 
makes the editing system affordable to a large 
number of users and also oDrovides a general com= 


puting facility for other uses. 
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Pe INTROQOUCT ION 


The ability to process information gathered from 
deployed military units throughout the world and tne ability 
to develop an accurate picture of the world status at the 
command and control level has been greatly enhanced with the 
advent of the computer. The processing time per amount of 
data has substantially decreased. However, the quantity and 
the numoer of required recurring reports has increased. 
This very trend was noted in a recent article which appeared 
1m the Naval War College Review (1). The author of the 
article noticed a 38% increase in the number of required 
recurring reoorts during the time he served as Executive 
Officer aboard a destroyer. This = in¢erease in reporting 
requirements came during a time when paperwork reduction 


programs were supposedly in effect. 


Consider the metnoo by which the reports have been gen= 
erated in the fleet. Presently,s aboard the majority of 
Naval vessels, report generation follows a pattern similiar 
to the following. To gain an overview of what information 
1S expected, the originating officer (normally a division 
officer or aepartment head) refers to previously submitted 
reports and to the manual which calls for the report. He 
then proceeds to write outr in long hands, the report content 


Searching the various apoendices of the manual for any codes 





or other unique features required in the report. The entire 
report will be written out, even if much of the information 
remains unchanged from the previous report. This rough copy 
will then delivered to the Executive Officer for his recome- 
mendations and possible changes. After aporoval by the Exe-= 
cutive Officerr the rough report will be delivered to the 
Commanding Officer for review. If the report has been 
approved by the Commanding Officer, it will be prepared in 
the smooth for submission. If the report is being sent out 
as a message, it will be delivered to Radio Central where a 
Radioman will type the report while concurrently making a 
paecr tCepet If the report is being sent as a letter, a Yoe= 
man will type the report in the smooth. The smooth and 
rough copies will then be delivered to the originator’ for 
proof reading. If no corrections are needed, the smooth 


report will then be delivered to the Captain for releasing. 


Aith the increasing administrative burden being qene= 
erated Dy the demand for more reports together with the 
archaic methods by which reports have been generated, it 1s 
no wonder shipdoard managers feel tnat their operational 
duties are being threatened by an administrative overload 


Ci}. 


This thesis oronoses the use of an inexpensive, mul@= 
tipurpose, microcomouter system as a tool capable of assist= 
ing the shipdoard manager in meeting this challenge. The 
main objective of such a system iS to let the system take 


over the responsibilities of reoort formatting, encoding, 





and error detection, thereby reducing the time that the 


report originator must spend generating reports. 


As a user cevelops a familiarity with the system execu- 
tions, he must be given the option of selecting the amount of 
promoting information he 1s to receive. A user who is 
unfamiliar with system execution will have to be prompted as 


to what information he must enter. 


(me 


{ 


A summary of the events leading to the proposal of 
USING a Computer prompted reporting system will be presented 
in Chapter II. Chapter III outlines the obdjectives of a 
Report Origination System (ROS) and discusses the hardware 
and software considerations of implementing such a = system. 
A summary of recommendations for further development of ROS 
has been presented in Chapter IV. Some concluding remarks 


adoout ROS are contained in Chapter V. 


- 
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II. BACKGROUND 


For some timer, concern over the growing amount. of 
paperwork has been receiving increased attention at higher 
command levels. This chapter summarizes recent proposals 


which have resulted from this concern. 


Mm «RECENT EFFORTS TO REDUCE REPORTING REQUIREMENTS 
1. Composite reporting (COMPREP) 


Composite reporting was an attempt to reduce the 
number of required operational reports by combining common 
reports into one formatted report. A formatted report is 
one In which the sequence and position of the endi vi cuen 
data elements have meaning. The data in the report has usu- 
ally been coded to reduce the amount of information 


transmission ano to allow automatic processing at report 


receiving sites. 


In 1971 a COMPREP system was designed and testea by 
Commander First Fleet. This system appeared to have consid-= 
erable merit. However, due to limited resources, the system 
desian had not been sufficiently develooed to prove it an 
effective management information system. The main defie 
ciency of the system was a coded output format which was 


ea tTiieult to understand. Also, there was no automated 


Pl 





inherent~error checking or correcting capability. 
ew X70 13 Increment I (COMPREP) 


In 1975 an improved COMPREP system [2] was tested 
and evaluated. The improvements were: 

a- to Provide operator intervention in order to allow 
on line error correction capabilities at the report receiv=-" 
ing site. 

De to provide formal classroom as well aS hands. on 
training to fleet personnel users and receiving site editing 
personnel. 

ce to utilize preprinted forms and a single user's 


handdook in order to ease the reoort oreparation burden. 


Testing and evalutation of the proposed system was 
cenducted by @ Private contractor wsing four units. of the 
fleet and the Necessary shore supporting activities. The 
main purpose of the test was to show that shipboard data 
collection, tessage formatting, aporoval,s, release anag dis 
tribution to ashore receiving facilities could work effece- 


tively. 


The recommendation which came out of the evaluation 
phase was that the developmental COMPREP sytem not be 
adopted, even tnough it met the major goals. This recommen= 
dation was made because COMPREP was not an integrated 
reoorting system which used easily drafted, readabdle, and 


flexibly formatted messages. 


4 





3. Composite Operations Reporting System (CORS) 


Followina X/C 13 Increment I, ure Oecie Goals of 
COMPREP were rerexamined. Based on the results of this ree 


examination the CORS effort was initiated in 1976. 


The purpose of CORS was to aescribe alternatives of 
implementing a reporting system which would: 

a Provide tCumely and accurate data to all cognizant 
levels of command. 

De minimize the reporting burden on the originator by 
integrating the requirements of four independent reporting 
Systems (employment schedules, movement report, casualty 
Pepont, and Navy force statws report) into ome simplex non= 
redundant reporting system. 

Ce provide significant improvements in the correct 
ness, readability of the information, and < iitmin vemesione 


System loading. 


The Naval Electronics System Command (NAVELEX), with 
Quidance from the the Office of the Chief of Naval Operas= 
tions (UPNAV) CORS Steering Committee, proposed implementa= 
tion alternatives to meet the objectives. Of twelve origi= 
nal proposals, four were selected by the CORS committee for 


further study. [3] 


The four alternatives as they apply to the report 


a” 


originator were: 


ies 





ae Alternative 1 


This alternative would require the originator to 
manually draft simple, readabler formatted messages using 


precefined forms and cecision logic tables. 
6:5 Alternative ed 


This alternative was identical to Alternative 1 
exceot that the manually drafted messages would be replaced 
by a Report Origination System (ROS) which would guiage_ the 
message drafter in generating error-free CORS messages via 


interactive computer prompting techniques. 
Ge Alternet iye 3 


This proocsal was an implementation of the cone 
cepts recommenced from the COMPREP tests. It would involve 
the use of an abbreviated check list to ensure het the 
information required by the command chain would be provided. 
The report would be written in narrative or abbreviated naro- 
rative English witn mimimal formatting reauired. The edite- 
Inq and formatting functions would be done by data entry 
clerks working interactively with the incoming messages at 


the receiving sites. 
Ge Alternative 4U 


This alternative was identical to Alternative 3 
exceot that the editing ana formatting functions would be 


done automatically at the receivina site by using dad special 


14 





opurpose frontend text processor. 


The CORS steering committee was also asked to make a 
final recommendation to the Chief of Naval Operations as to 
which alternative would be feasible for implementation. The 
committee selected alternative 1 as the method to implement 
since it provided earliest capability. The committee did 
point out that aternative 2 provided the best benefits, but 
due to the cost of the equipment in relation to immediate 


benefits this cost could not be justified at this time. 


it wee Che pmrpese of this thesis to demonstrate that 
alternative e@ can be imolemented with a modest and inexpen= 
sive (34080) microcomouter based system. This system can 
Qrow to amore comelex system when its usefulness has been 
demonstrated. This system gives immediate feedback to the 
report originator so Chat @rrors can ne panes and 
corrected before they contaminate the data base. fhe system 
generates the oroper format for the reports and the 
recepients do aa neec to spend the effort to edit or format 


the incoming data. 


i. 





IIT. A REPORT ORIGINATION SYSTEM (ROS) 


As pointed out in Chaoter II the CORS steering commit- 
tee proposed an automated report origination system to ease 
the burden of report generation. bre (newm Gobijectsiion to 
immediate implementation was that the cost of the equipment 
could not ove economically justified for only report genera= 
t1om. This chapter outlines the design objectives and an 
implementation scheme of a report origination system based 
em «a microcomputer. The system provides a low cost one 
mentation of the reporting system and proviages smaller ships 
with a@ general puroose comouting facility useable for many 
other apolications. 


- 


A. ROS DESIGN OBJECTIVES 
1. ‘Ease of Use 


A sghioboard report origination system must not 
require extensive training to operate the system. The sys 


tem should be selfwheloing and tolerant of operator errors. 
ee Adaptability 


As the user becomes familiar with ROS program execu- 
tions, he does not reauire as much Prompting as an unfamiliar 
user. The user 18 given control of several levels” of 


promoting. The user should also have the option of 


16 





displaying the report in the normal coded form, as it would 


be sent i1nr or 1N @ decoded interpreted form. 
3. Apolicability 


To serve as a useful tool, ROS must be applicable to 
@ wide spectrum of reporting formatsr in spite of the diver= 


Sity and non-standardization of required reports. 
4. Error Dévection 


The system must conduct error analysis throughout 
the execution of the program. If errors are detected, the 
user muSt have the ability to correct the errors without 


having previous work dgestroyed. 
5S. Lite cycle costs 


The system should be tailored to atfordable 


7 


- 


hardware. Considerations must be given to purchase or ren= 
tal costs as well aS hardware maintenance costs. The system 
should also be expandable when its general usefulness 1s 


Giscoverea. 


B. SYSTEM OVERVIEW 


1. Target Report - NAVFORSTAT 


Reoorts submitted by fleet units take on varying 
Structures, from strictly formatted reports with various 
coding schemes to reports written in the natural language. 


It would ve extremely difficult, if mot impossibler to 


uy 





design and implement an easy to use system which would be 
apolicable to al) types of reports. Consequently, the Navy 
Force Status (NAVFORSTAT) report was chosen as a typical 
operational report which contains the basic structures which 
a reoort origination system must deal with. The data ele= 
ment was such a structure and was widely used in the ROS 


program. 
Ze Data Element 


A data element within the ROS program consists of 


rour parts: 


ae Data Label 


A data label is an unique recognizeable identif- 


1er for the data element. 


Oe Code Area 


The code area is the reportable information 


which is pertinent to the data label. 
Cus Error Command Area 


The error commands used to check input informa- 


tion at execution time are stored in the error command area. 


Cus Prompting Area 


Tnis area contains the questions which may be 
weee Yo Solicit the necessary information to generate the 


report. 


18 





3. PFrogrem Structure 


A brief introduction to the software programs making 


up the Report Origination System follows: 
a. “=RGS 


This 18 the main program with which the user 
originates desired reports. The ROS program usesS as input a 
Cae wase (DAT file amd produces as output an updated DAT 
rile wna a message (MSG) file. Appendix A contains a user's 


guide for executing ROS on the Intellec#8 microcomputer sys 


tem. 
6. CREATE 
The utility program CREATE was used to create a 
DAT file. It was asSumed that the command requesting a 
report will create the pertinent DAT file and send a copy of 
this DAT file to all commands required to submit the report. 


In this manner’ the requesting command would be able to 
soecify the report format, the prompting questionss and 
Gegree of error analysis. The user interested in creating a 
DAT file for a report which may be unique to his unit or for 
a recort in which the DAT file doesn't exists may ao so by 


referring to the user's manual contained in Appendix A. 
©. pre EGitor 
A line editing procedure, LEDIT, was implemented 


in the programs ROS and CREATE. This line editor allows the 


19 





user thesecaoebrinty of editing input information. 
GQ. Files 
ae Data Base (DAT) 


A DAT file must exist for each report originated 
wren the eid of*ROS. The DAT file will either be furnished 


by the commano requiring the report or can be created using 


the CREATE program. 


The finest record (128 bytes) of the DAT file has 
been reserved for the record map. The record map serves as 
fhe. date element directory and has been used to randomly 
eeeees deta elements within the DAT file. Subsequent 
records of the DAT file contain the components of the data 
elements in a8 rotating pattern of: code and error command 
area Cone record) followed by the prompting ‘ay orhoton 


(variable number of records). A portion of a DAT file has 


been expanded in Figure 1 to Show the Structure of the file. 
b. Message (MSG) 


The message file is created during the execution 
of the ROS program and contains the reoort which may be sub- 
mitted. The code area portion of the data element will make 
up the entries of the MSG file. The carriage return and 
line feed characters are aopended to the end of each entry 
to allow line by line printing of the data contained within 


Cie MSG file. 


20 
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2e ewe ee @ = ---(Code Aregrerereereecerecoce ‘ warmer ero romowwener— rFror 


rome © HH / 0 18 6 &§ YF = 2 0 tbinary zeroes... A / 


Commandgds. eseweworeowvewoeos wewarenaerevwrzananaae Zee & saa wes e ae aw = 


toe “a eereaArtT 6d Sh C6C¥eOr UR CC OmMeM AN DIT mw G 0 
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Peieewews > UMM RD ER ey Tt ..ePER SN ower 


A PORTION OF A DAT FILE 


FIGURE | 


CC. HARDWARE 


Tne hardware system which was used to implement ROS cone 


sisted of: 
1. Computer 


An Intellec#-8& mainframe, which was based on Intel's 


8080 microcomputer, with 16K bytes of random access memory. 


Ce. Disolay Termina) 


me Detam@dia Elite 2500 cathode. ray tube (CRT) 


display. 
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3. Auxiliary Memory 
A Shugart dual drive floppy disk system. 


The motivation behind the selection of this equip- 
ment was availability. This system doesy however, point the 
economic benefits of such a system. Currently the cost fou 
@ system Jlike this 1S approximately $6000. Of course, the 
cost of a system may vary deoending upon the capabilities a 
user desires. It was not the ourpose of this thesis to do a 
cost analysis o f avai Wat é equipment, but rather to demone- 
aerate that a Report Origination System may be implemented 


on arelatively inexpensive system. 


D. ROS SOFTWARE 


The ROS software package consists of the main program 
and a utility program CREATE. The ROS program was designed 
to make changes to the DAT file and CREATE was designed to 
cmeereé 6g DAF file 1f one did not exist. This section deals 
strictly with the software program ROS whereas CREATE will 


be discussed in Section E,. 
The ROS orogram consists of six modules: 
es Operating System Interface 


Certain input, outout ana wWealhiyty functions were 
carried out through system calls to the resident Monitor 
Control Program (CP/M). The detailed instructions pertain= 


ing to operation under CP/M may be found in the CP/M 


ere 








Interface Guide(7). Only the actual functions which are 


used within the ROS software will] be discussed here. 


ae Console Output 
(1) Printchar = Outouts ASCII characters to the 


display terminal. 


B®. Disk Input/Output 

(1) Search ~ Search the disk directory for a pare- 
eveular file. ne 

(2) Open = Make a file ready for further opera= 
tions. 

(3) Close + Upaate the directory entry for the 
particular file after processing operations are completed. 

(4) Diskread = Read the next record (128 bytes) 
from the referenced file directly to memory area specified 
by direct memory access (DMA). 


(5S) Diskwrite - Write a record from the accessed 


address 1n memory to the referenced file on the disk. 


Se. Oerkirty Funct rons 
(1) Set DMA = Set the 128 bytes buffer address at 
which sSubSeaquent disk input and output operations will take 
place. 


(ec) Lifthead - Lift the disk read/write head. 
Cx Initialize Module 


The main function of the initialize module was fo 


initialize main memory with the data elements selected Dy 


es 





the user to be included in the report. The submodules tinat 


carried out this function were: 
ae File Operations 


Tne proper DAT filer if it exists, iS opened and 


a MSG file is made. 
b. Selecting the Working Set 


To set up the working set,y, the record map is 
reac into memory and the data labels are disolayeds, one line 
S@ a time, om tie CRI display. The us@r may then select Cnes 
Gats éléments which sre to be included in the report. If a 
GStS element is Selected, the number of records which the 
Gato elewent occupies on the disk is caiculated and stored 
in the working map along with the disk location Information. 
then all desired data labels have been selected, the user 
may enter "S" to stoo further disolay of the data Ilaovoels. 
At this points, the working map contains the pertinent Gaisk 


accessing information reauired to orocess the recort. 
Cas Initialize Memory 


The information pertaining to the selected data 
elements is read into available memory until either memory 
is filled or all selected data elements have been read. if 
memory 1s fillear, a logical variable will be set to true 
indicating that there are more gata elements to be read from 
the ‘disk. After the read operation is completed, pointers 


will be estabdlised to allow referencing of the various'9 data 
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element fields (code,error and prompting). These pointers 
are aligned such that each area pointer will reference com= 
mon subfields. In figure 1l, for example, the question con- 
tained in Santana l1 of the prompt area is the prompting 
information required to solicit the necessary data to be 
inserted in subfield 1 of the code area. Likewise, the sole- 
iciteqg information is to be checked for errors according to 
the error commands contained in suofield 1 of the error 


area. This pointer alignment is maintained throughout the 


execution of the ROS program. 
3. EaGiRing BWith Inmetructions 


The main function of the edit module was to solicit 
the necessary information from the operator which may be 
correctly entered into the report text. This function was 


carried out by the following submodules: 


- 


Bi Solicit Information 


The prompting question is displayed on the CRT 


screen. The operator enters a response at the keyboard. 
b. Editing 


The response is checked for errors according to 
the error commands pointed to by the error pointer. (The 
error analysis technicue will be discussed in Section 5 as 
it applies to both editing schemes.) If an error occurs, a 
diagnostic warning is given and the user may reenter the 


corrected resoonse. When the solicited information is 


as 





Geemec correct, tt 1s saved in a code buffer for updating 


the DAT file and entry into the reoort. 
4, Editing without Instructions 


In this environment, the user acts directly upon the 
coded information. This allows the experienced user quick 
access to subfields requiring changes without having to go 
through a prolonged question and answer period. The user 
uses the features of the line editor [Appendix Aj] in editing 
the codedaq information. Briefly, the line editor uses two 
buffers: the old and new buffers. Information may be passed 
between the buffers using the special characters defined to 
accomolish different functions. These special characters 


are defined in Table 1 of Appendix A. 
ae Information Entry and Eaiting 


A copy of the coded information is duplicated in 
the ola buffer of the line editor. The gata label is 
immediately moved to the new buffer where it 1S protected 
from editing by the user. The user may now duplicate any or 
all information from the old buffer to the new buffer or may 
enter new data from the keyboara. A carriage return signals 
the orogram that the editing function is complete and error 
analysis may begin. After the error analysis 18S complete, 
the new buffer contents (new information) is used to update 
the code area of the data element in the same manner as in 


Park 1Rno without instructions. 
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5S. ‘trror @maebysis 


Although error analysis is closely connected with 
the editing process, it actually exists as a separate module 
iret he’ orogrem. The function of the error analysis module 
was tO prevent contamination of the data dase by entry of 
incorrect data. No attempt has been made to list all possi- 
ble sources of errors and generate countermeasures against 
the occurrence of these errors but rather, to develop a sys= 
tem which may de expanded as experience may require. Thus 
the error analysis modgule is broken down into submodules of: 


command recognition and command execution. 
ae Command Recognition 


The error command (one alphabetic or numeric 
ASCII character) is compared to entries contained in. the Do 
command (DOSCMD) procedure. When the proper match occurs, 
an aporopriate procedure call will be made. An error com= 
mand listed in. the DAT file for which mo execution pro-~ 
cedures exist within the ROS program is an error introduced 
at tite time the DAT file was created. I[f no» match occurs 
during execution, a diagnostic will be given and execution 
will terminate. In order to maintain the pointer alignment 
to each subfiela, a null error command (0) 18 used.e- A match 
on the null command simoly returns program flow to the cale 


ling procedure without doing any error analysis. 


on, 





Bes Command Execution 


This suomodule consists of all error diagnostics 
which may ve called to carry out the error analysis. It is 
broken down into functional units each of which iS a proe 
cedure designed to check for certain error conditions. The 


error analysis capability may be extened by inserting new 


commands in the DOSCMD orocedure and entering the 
corresponding procedures too senecx the data Tom the 
occurrence o f the error. A difference between the error 


analysis techniques apolied to the input and editing modes 
should be pointed out. In the instructional mode, error 
analysis 1S applied to one subfield for each call to the 
error module, whereas in the nonw-instructional mode all subs 
fields of the code area are analyzed with one call to the 


error analysis module. 


- 


0. Output 


After all the data elements within memory have been 
processed, an uodatea version of the coded information will 
exist in memory. This coded information serves as the basis 
for updating the DAT file and actual creation of the report. 
Since the coded portion is the only data to have changed 
during execution of the ROS program, it is the only informa= 
tion required to be written to the DAT file. Utilizing the 
working mapr, which gives the record number within the DAT 
file where the code record must be writtenr, the proper 


access may be made and the uodated record written to the 
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propee DAT Tile. A copy of the coded information with 
appendeac carriage return and line feed characters 18 Saved 
im a temporary buffer until a full recorao has been accumu= 


lated. This record is then written to the MSG file. 


After completion of the output phase, if more data 
elements exist to be processed, the elements will be read 
into memory and the pointers will be reset. The editing 
Process will] continue until all data elements have veen pro- 
cessed. After al} data elements have been processed, the 


DAT file and the MSG file will be closed. 


eB. CRE*TE 


The utility orogram CREATE allows the user the ability 
_— co@ate 4 cata base Tile with which a particular ceport 
may be generated. The program was designed with the ‘nega 
that persons familiar with computers at the command requeste= 
ing the report, would create the appropriate DAT file and 
forward Q eae to all reporting commands. Thus the proaram 
execution is somewhat more cryptic and "maaical”. However, 
this iS not meant to discourage the shipboard manager from 


uSing the system. A user's guide is provided [Appendix Aj] 


and the system execution may be mastered in a short time. 


The DAT file consists of a directory element, the record 
MAP » and repetitive entries7 of code, error commands and 
prompting information. The entries are organized into 


records, each record being 128 bytes. The record map occu- 
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Dies the first record of the file. The code area and the 
error commands for each data element share one record. The 
code area is located at the first of the record whereas’ the 
error commands are located at the end of the record. Any 
unused space between the code and error areas contains 
binary zeroes. The promoting area may cccupy more than one 
record. Since the coce area begins on a record boundary and 
together with the error commands will take up no more than 
one record, the prompt area will always begin on a-e record 
boundary. This structure allows random access to the record 
where each data element begins within the file. To effect 
this random access, the data element identifier, the data 
label, is stored within the record maps, along with the 
necessary disk locating information. It then becomes a 
matter of reading the record map, selecting the oarticular 
data label and setting up to read the information of the 


- 


desired dita element. 
The CREATE program consists of the following modules: 
1. Initialize 


The function of the initialize module was to make a 
DAT file, if one did not already exist. If a DAT file 
alreacy exists, a diagonstic warning will be given and pro- 
gram execution will] cease. The user may then remove the DAT 
file, if no longer desiredsr or may use it as input for the 


ROS program to generate the desired report. 
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Assuming a previous DAT file does not exist, a DAT 
file will be made. Specific pointers to available memory 
(memory between the CREATE program and the resident onerat- 
ing system) will be established with the first 128 bytes of 
available memory being reserved for the record map. All 
mee to be entered in the DAT file will be enteréd in a 
sequential manner between the record map and the operating 


system. 
2s Inout 


After the DAT file has been ooened and the pointers 
Set, the user 18S free to enter data into the DAT file. 
Since the DAT file is constructed in memory in a sequential 
mannerr the entries must be in the order of coder error com= 
managsr and promoting information. The features of the Line 
Editor (Appendix A) are used to edit the entered text. When 
the user 15 Ses 4 ied with the particualar entryr a special 


character defined in [fable of Anopendix A is entered and the 


entered data is storec in the DAT file memory area. 


Editing and error analysis is left up to the user. 
ine teorunpes of the Line Editor allow ample capapilities to 
make corrections to entered data. Once the snecial charac@- 
ter, denoting the type of entryrsy is given, the input data 1s 


Stored and the user no longer has access to it. 
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3. Wi nish 


If available memory is filled before all data ele=- 
ments have been entered, the existing memory image of the 
DAT file will be written to the disk and the pointers reset. 
After all data elements have been entered, a back slant may 
be entered to indicate end of file. At this time the memory 
image of the DAT file 1S written to the disk file and the 


DAT file is closed. 
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IV. RECOMMENDATIONS 


The implementation of a Report Origination System (ROS) 
Gesigneag to help ease the administrative ourden facing the 
shipboard manager has been discussed. This has been the 
first known attempt of implementing such a system and subse- 
quently some arbitary design decisions were made that have 
become apparent weak points. In addition, complete develop- 
ment of the system has been curtailed due to time con- 
straints. A followson thesis aimea at further development 
1S planned and therefore this chapter Summarizes some of the 


areas that could be further developed. 


oe pomon DERECTORY (CRECORDMAP ) 


- 


Currently the record map is limited to 128 bytes which 
is insufficient space for storage of long or a large number 
af date labels. Admittedly, this methoo was an ad hoc pro- 
cedure anda more efficient method 1s required. Qne possi- 
ble method may be to use a nash coding scheme to reduce the 


size of the entries. 
or. PARED DATA LABEL LENGTH 


Presently all data laoels must be of equal length 
throughout the DAT file. The CREATE user has the responsi-= 
bility for ensuring that the lenath of all data labels will 


be the same. Although this restriction simolifies program 
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coding and decreases memory usage (important considerations 
1N microcomouter usage) it was considered much too restric= 
tive for general acceptance. A prime consideration’ for 
fixed data lengths was for ease of insertion in the record 
mao. IKIf the method of maintaining the disk directory were 
changed, the emphasis on using a fixed data label length 
would lessen. Another use of the data label must be cone 
sidered before removing the restriction. In setting up the 
editing ouffers for subsequent edit operations, the data 
labels are moved to the aporopriate buffers dependent upon 
the fixed data label size. Thus, to continue to use this 
methoqg of editing, an alternative aporoach to moving varie 
able length data labels must be sought. Une method to han-= 
dle the variable length problem might be to mark the end of 
the data label with a special character. Characters could 


then be transferred between buffers until this special chare 


acwer is encountered. 
Gye LweK OF MNEMONICS USE IN THE LINE EDITOR 


The line editor commands have no mnemonic value. litaatis 
resulted as a traderoff for programming efficiency. Rather 
tham wise a series of comparing statements to identify the 
inout character, it was decided to use a sequential group of 
characters and index to the correct procedure call by a case 
Statement. A table which translates mnemonic code to the 
code used in this program could be added to make the _ line 


editor similiar to other editing systems. 
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D. BACK UP FILES 


No Provisions have been provided to set up a back up 
file. This could be accomplished by copying the DAT file to 
another file (BAK) before the editing of the DAT file 


begins. 
Es OTHER SUPPORTIVE SOFTWARE 
be Headings 


Software should be developed to assign heading 
information (date time aroud, addressees, classification, 
ete.). This could be patterned after current techniques 


(Aadressal Indicator Group) in use in the Navy. 
2. Optional Display List 


As noted in the objectives of ROS, a user “should 
have the option of displaying reported information in coded 
or interpreted form. This option has not been incorvoorated, 
bwit eghould be relatively easy to do. By utilizing a pointer 
alignment scheme, Such aS previously discussed, the prompt= 
ING question together with the subsequent response could be 


displayed for each data element edited during the session. 
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Vee ONGCEUSTONS 


ROS provided an interactive feed back loop of computer 
generated prompting instructions, user responses and error 
analysis. This system permits error detection and correc: 
tion to be carried out by tndividuals who generate the 
Report eno were therefore most likely to recognize serious 
errors wn report contént. Errors in format were unlikely 
Because format design would be generated in the computer. 
In the present method, the recioient of the report was asked 
to perform error detection. The recto1rent was generally 
able to detect errors in format only and was unable to 
correct the errors in content without additional information 


feom the r@port arigindétor. 


ROS was an easy to use system with bouiltctin flexibile- 


var ¥ « As the’ user becomes familiar with the report struc- 
ture, he may choose to limit the amount of prompting 
mstructions he will receive. 


Although ROS was designed using the NAVFORSTAT report 
as a pattern, it will be applicable to any report which uses 
line by line formatting. Since most Navy reports fit into 
this category, ROS should be applicable to a wide spectrum 


af reports. 
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The secondary benefits of having an expandable, mule] 
tipurpose computing facility aboard naval vessels can not be 
ignored. As shioboara users become familiar with the come- 
puting potential available, the base of application develop-= 
ment will be increaseo by orders of magnitude. Many apopelia= 
cation programs have already been developed at the Naval 


Postgraduate School and are ready for further testing. 


The Report Origination System (ROS) has been imple 
mented on an inexpenSive microcomputer system and shown to 
be an effective tool in helping the shipboard manager meet 


the challenge of required recurring reports. 


37 





APPENDIX As: User's Guide 
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ROS Program 


rs Introduction 


The purpose of this User's Guide is to assist the user 
in generating required recurring reeorts through the use of 
the Report QOriaqination System (ROS). The details of the 
program logic may be found in the body of the thesis 
(Chaoter LIT). This guide is a step by step overview of 
what the user should expect while executing ROS. This guide 
describes imolementation on an Intellec=8 microcomputer sys 


tem which uses the resident operating system. 


ae bmit i} i 2em ion 


The program ROS is initiated by typing 
ROS <filename> <cr> 
<cr> stangs for carriage return. Tne <filename> must be the 
name of a data base (DAT) file which exists on the diskette. 
It is assumea that the command requesting a particular 
reoort wil] Supoly the user with a diskette containing the 
pertinent DAT file. However, if the user 18 setting up a 
file to hanale a recurring report unique to his command or 
if ne has not been furnished a DAT filer, he may create the 


DAT file oy referencing Sectionl/7) of this guide. 


Bg Execution 
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Mmwehe= proper OAT 11le exists, i1t Will be” opened and 
the data labels contained within the file will be displayed 
on the CRI screen. The user may now select (by entering a 
"Y" or "N® under the data label) the data elements which are 
Somoe included in the Pepert. At this point the user wil! 
be queried whether or not he wishes to be prompted. A user 
who 1S unfamiliar with computer line editing procedures 
should select to be prompted. After the user becomes fami- 
liar with the line editor {[Section(8J]}], he may find it 
easier to generate a report by using the limited prompting 
modes. A’ positive resconse ("Y") to this auery will atlow 
the user to edit the coded area of the revort directly tetas 
the features of the line editor (Section(8)]. If a negative 
response ("N") is givens, the user will be prompted by 
appropriate questions to solicit the necessary information 
mrecocimg into the report. | 


- 


4. Limited Instruction Mode 


If the user selects to edit the coded information 
directly, the coded information last submitted will be 
entered into the old buffer and the data Jabel will be 
entered into the new buffer (Section(8)J]. Now, using the 
features of the line editor, the user may duplicate 
unchanaed information to the new buffer or enter new infor- 
mation from the keyboara. When the editing process for each 
data element is completed, a carriage return may be entered 


to signal the ROS orogram to check for errors. If an error 
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has occurred, a diagnostic will be given and the old buffer 
contents Cold information) as well as the new buffer cone 
tents (new information) up to the voint of the error will be 
displayed. The user may now make the appropriate correc- 
tions, duplicate the remaining information and enter a <cr?, 
When the coded information 1S correct it will be saved in 
the coded area for updating the DAT file. Execution in this 
manner continues for each of the data elements selected at 


the beginning of the session. 


Br, Instructional Mode 


During the instructional mode of onerationr, questions 
will be written on the CRIT screen. The user will key 
responses to these question from the keyvooard. As inputs 
are received by the ROS program, error analysis will be con- 
eucked. If am @irror occurs, a diagmosti¢c will be given and 
the user will have an ooportunity to give another response. 
Correct resoonses are retained in the new buffer [Sec=- 
tion(8)] until all inouts for the working data element have 
been gathered. After a data element update is complete the 
information will be stored in the code area for updating the 
DAT file.e. Execution continues 1n this manner until all pre- 


viously selected data elements have deen processed. 


Ge End Execution 


When all data elements have been processed the ROS pros 


gram wil] write the compiled report to the diskette. The 
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report may be referenced under the file <filename>.MSG. 
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4 Introduction 


The utility program CREATE was designed and written to 
allow the user the ability of building a data base (DAT 
file). The DAT file contains information specified by the 
most recent report as well as the prompting questions the 
operator is asked to respond to in order to collect’ the 


necessary information. 


A portion of a DAT file has been expanded in Figure e 
fo Show the structure of this Pile. The first 128 bytes of 
the DAT file are reserved for the record map. The record 
mG iS 8 summary of the data labels contained within the DAT 
mie oS mee a6 the aisk storage location of the first 
recora of each particular gata element. Disk locations are 


maintained by record extent and record number within. the 


file. 
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Information pertinent to the report is contained within 
the data element. A data element consists of a data label, 
a code area, error check commands and a prompting area. The 
Gata label iS a unique recognizable identifier for each line 
of the proposed report. For example in the Navy Force 
Status (NAVFORSTAT) reoort the data label, COMDR, is used to 
reference information pertaining to the Commanding Officer 
of the particular reporting activity. The code area con- 
tains the reoortable information pertaining to the data 
label. Error check commands are used to check input infor- 
mation at execution time. The questions to be asked to sol- 


rej1t the information needed to generate the report are 
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contained in the prompting area. With the exception of the 
record map and the data lJlabel PERSN, the example given in 
Figure 2 represents one data element. Notice that data ele=- 
ments having more than one subfield description are 
Geperated by avsub-freld delamiter "/". This delimiter is 
used in the error analysis routines to set uo fixed or varie 


able length subfields. 


Each subfield of the error analysis command corresponds 
to the same subfield of the coded portion. For example come 
mands listed in Fiaqure 2 would indicate a check of subfields 
Ll anaeoof the referenced data label for alphabetic charac= 


ters only and to check subfield 3 for numerics only. 
a bmaitiation 


The CREATE program 1s invoked by typing 
CREATE <filename> <cr> 
The <filename> must be a unique mnemonic (8 or less charac= 
ters) for the particular reoort to be generatea. For exam= 
ole, 
CREAPE FS <cr> 

may be used to create a data base for a NAVFORSTAT report. 
At this point execution begins and the user is asked to 
specify the length of the data labels to be used within this 
Darticular report. The user should note that since the data 
labels are duplicated in the record map, the lengths’ should 


be minimal ano in no case should they exceed a length of 9. 


S. Execution 
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The operator 1S now free to enter text from the console 
using the features of the line editor [Section [(9)] and spe- 
cial characters required to specify the type of input. 
These special characters are summarized in Table 1. Keep in 
ming CREATE expects text input in the order of coder error 


check commands, and questions. 


Text is storeq im memory until an end of file is 
encountered or the memory region is filled. At this time 
the memory image of the DAT file is written to the disk and 
memory pointers reset or the system reboots in the case of 
end of file. The end of file is signalled by entering a 


back slash. 


GeemeetER DESCRIPTION ASCII FUNCTION 
Bar 7CH end of code area 
a Tilae (ein end of error commands 
t Uparrow Sem end of prompt area 
\ Back slant See end of file 
THBLeEW3 


SPECIAL CHARACTER MEANINGS IN PROGRAM CREATE 
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Line Editor 


ies Introduction 


ROS and CREATE use the features of a line editor which 
18 incorporated in theeprograms os the procedure LEDIT aind 


1S called when the console jis to be read for input. 


The procedure LECIT uses two 90 pyacomc ur eae the old 
buffer and the new buffer. As the names imply, the old 
buffer contains information entered at the last console read 
operation. The new buffer contains information which is 
currently being read. The information in the buffers may be 
transferred between the buffers by entering control charac= 


ters which are Summarized in Table e. 


- 


CONTROL 
CHARACTER DEFINITION 

A ActS aS a backspace and rub~out commana on the new 
line only. (same as rubw~out on many terminals). 

5 Replace the old line with the contents of the new 
line, emoties the new line. 

C Copy one character from the old buffer to the new 
ouffer. 

D Copy the remaining characters from the old line to 
the new line echoing each character. Then tere- 
minate the ecit. 

\ 
E Toggle the insert mode. Begin insert prints "“<", 


end inserts orints “Pee Position of the old 
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pointer does not change during insert. 


Delete the new line without updating the old line. 
Terminate the edit. 


Display contents of the old and new buffers with 
control characters interoreted (e.g. "TI" for TAB, 
“HG "ator BELL, #erced. 


Copy remaining characters from the old line to. the 
new liner echoina each. Do not terminate the edit. 


lab. A tab stop 1s defined every four characters. 
Same as TAB on many terminals. 


Line feed. Terminate the edit. 
(not used) 


Copy remaining characters of ola line to new line 
without echoing. Do not terminate the edit. 


Carriage return Terminate the edit. 


- 


COackspace ola buffer and new buffer one space. 


Copy tharacters fom the current position of the old 
pointer to the next character typed. 


Delete characters from the current position of the 
old pointer to the next occurence of the next char- 
acter typed. Echoes a "“%" for each character 
geleted. 


Delete the new line and reset the old pointer to 
the start of the old buffer. 


Disolay the remaining contents of the old buffer 
and all of the new buffer. 


Delete one character from the old buffer. Echo a 
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Ate Or the Geslleted character. 


Uniy used jin CREANESto transmit information in the 
new buffer to storage in memory. Used when input 
from the console exceeds one crt line. 


Copy characters from the old buffer to the new 
buffer uo to the next TAB character. 


Escape character. Turns off any special meaning of 
character which follows. Enters the character 
into the new buffer and echoes the characters (e.g. 
“Cl bwC Tlam” wil] «ech cmtm)< 


(not usea) 


Deletes characters from current position of old 
buffer through next character typed. 


Copy the remaining characters from the old buffer 
to the new buffer echoing each, replace the old 
buffer with the new buffer. Do not terminate the 
edit. 


Copy characters from the old buffer to the new 
buffers through the next occurence of the next 
character typed. 


NOTE:° The control character 18 entered by depresse 
ing the CTRL key and then simultaneously depressing 
the the desired function key. 

TABLE 2 


LINE EDITOR FEATURES 
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A Sample Session 


This is an example of how a portion of a Naval Force 
Status (NAVFORSTAT) data base file may be created ana then 
subsequently updated to generate a report. The brackets < > 
are used to indicate keyboard entries. Comments, as they 
aeely; are enclosed within #* comment */. Text proauced 
during program execution will be as it would appear on the 


screen. 
A. CREATE Execution 


A> /x system iS ready to start */ 

<CREATE NFS> <cr> 

LENGTH OF DATA LABELS TO BE USED? 

<5> <cr> : 

EXPECTING CODE INFO /* prompt message */ 

<COMDR COR/J. P. JONES/OO0LLI=101> <cr> /* the bar (i) will 
not oe echoed */ 

EXPECTING ERROR COMMANDS 

<A/A/N7> <cr> /* 7 will mot be echoed */ 

EXPECTING PROMPT INFO 

<WHAT RANK IS YOUR COMMANDING OFFICER?/HIS NAME?/HIS LINEAL 
NUMBER?T> <cr> /* T will not be echoed */ 

EXPECTING CODE INFO 

<PERSN NE/O0236/0230/02101> <cr> 


EXPECTING ERROR COMMANDS 
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<A/N/N/N I> <cr> 


EXPECTING PROMPT INFO 


4 heePE OF PERSONNEL ?/STRUCTURED STRENGTH? /AUTHORIZED 


STRENGTH?/ASSIGNED STRENGTH?T> <cr> /*x fT wil] 
x / 
EXPECTING COCE INFO 
en ae wat ws emough for now */ 
A> 
/x A file (NFS.DAT) now exists */ 
Be. ROS Execution 
To send out personnel informations a user 


RiOS:. 


A> /* system 1S reaay */ 

owamo mer > <Cr> 

SELECT DATA ELEMENTS YOU DESIRE TO WORK WITH 
COMDR PERSN 

<N> <Y> <cr>- 

ARE DATA LABELS TO SBE INCLUDED IN THE REPORT 
<Y> <er> 

DO YOU wISH TO BE PROMPTED 

<Y> <er> 

PPE OF PERSONMEL? 

<NE> <cr> 

STRUCTURED STRENGTH? 

<0256> <cr> 


AUTHORIZED STRENGTH? 


yl 


not be echoed 


simply uses 





<0250> eeini> 

ASSIGNED STRENGTH? 

<0218> <cr> /* gained 8 people */ 

A> /* only one data element was selected */ 
/x without prompting */ 

/x execution is the same to questions */ 

DO YOU wiShH TO BE PROFPTED 

<N> <er> 

PERSN NE/0236/0230/0210 

some <ctiZ> <i> <cr> by a 1 (not echoea) */ 
PERSN NE/0256/0230/021<8> <cr> /*x no new line created, just 
filled in current line x/ 

PERSN NE/0236/0230/0218 

A> 

/x in either case, message looks Jjikes */ 


PERSN We /0236/0230/0218 


-” 


Se 





— 


JR FR RE A HOR RI OK A RK 2 Oe Fe ae 2 2 a ke 2 aE ao ee ec ke 2K ee ee 


A_ REPORT ORIGINATION SYSTEM DESIGNED FOR SHIPBOARD 
USE IN THE GENERATION OF REQUIRED RECURRING REPORTS. 


THE SYSTEM USES AS INPUT A 
EROLUCES AS OUTPUT @ 
SOFTWARE SYSTEM CONSISTS OF 


CRESTE. 


CHEATE [S3u5ED TO CREATE A 
IS USED TO UPDATE THE DAT FILE AND CREATE A 


DATA BASE 
MESSAGE (MSG 
TwO P 


FILE AND 
Tu 


MESSAGE. 


THE ROS PROGRAM IS MADE UP ON THE FOLLOWING MODULES: 


1. OPERATING SYSTEM INTERFACE 
2- INITIALIZE 
3. EDITING 
4. ERROR 
5. OUTPUT 
THE CREATE PROGRAM IS MADE UP OF THE FOLLOWING 
MODULES: 
1. @yLTIALIZE 
2. INPUT-EDITING 
3. “PLUSH 
BOTH PROGRAMS WERE DESIGNED FOR EXECUTION ON THE 
INTELLEC-8 MICROCOMPUTER eee WITH CROSS COMPILATION 


BEING DONE ON 


AN IBM 360/65 


EM KK EK KK KH EK EK EE He EE EK KK CK KK KK OK x / 


100H: /* PROGRAM 


TO BE LOADED INTO MEHORY STARTING HERE */ 


y= ME KE HK Ee EK EE eK He Ee eK Ae oe eK He a KE A RC ee EK OK Oe EK OK OK KK 


OPERATING SYSTEM INTERFACE DECLARATIONS. 
26 FR I 2 a ak Rk a a aka ie ic ak ae ee ake ake oak ae ak ak ek a ake // 


DECLARE 
LIT LITERALLY 'LITERALLY', 
BOOT -Dte ‘0! 
ENTRY LIT '0065H', /* ENTRY POINT TO OS */ 
TRUE rit, 
FALSE LIT ‘0! 
FOREVER LIT ‘WHILE TRUE', 
CR LIT  ‘'ODH', 
LP LIT ‘OAH', 
CTI LIT '‘'O!, 
CTS LIT 'ity 
DCNT BYTE 
BDOSA ADDRESS INITIAL (00064), 
SBDOS BASED BDOSA ADDRESS; 


/* ie Xe ee Ee eK Ee he 2 I A EE CE HE OK a AE 2 EK A EE A IE OK KK 


INITIALIZE DECLARATIONS 
OF kk I Fa Fa feo a a a ke ie ak ie ie ic ak a ek ak ak ak kK // 


DECLARE 
PROMPT BYTE INITIAL FALSE) 
RM ADDRESS IN TIAL ( 6H), 
RMPTR BASED RM T 
DLSLEN BYTE, 
NUM$REC BYTE, 
WORKSMAP ADDRESS 
aMPTR BASED WORKSMAP BYTE 
EXTSRN BASED WORKSMAP ADDRESS, 
NUMS$ELEMENTS BYTE 
ESRSA ADDRESS, 
ZR BASED ESR$SA BYTE, 
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NRSREAD BYTE, 
TE 


NR BY 

SAVESEXT BYTE, 
SA VESRN BYTE, 
DATS$ARE ADDRESS 


A ’ 
DAT BASED DAT$SAREA BYTE, 
ATSAREA ADDRESS, 
REA ADDRESS, 
ADDRESS, 
SED CODESA BYTE, 
a ADDRESS, 
ADDRESS, 
A ADDRESS INITIAL (80H), 
S SG$AREA BYTE, 
MORE INITIAL (FALSE), 
HOLDSWM ADDRESS; 


J FRE FRI RR eK Kk 2 i KK Ko I ck fee ok ok ce 


EDITING DECLARATIONS 
7 CC FO OR FIO II AIO I IR aK ok aR KK OK / 


3 
de 


DECLARE 
EUFFER {180 BYTE, 
SIZESNBUF LIT 19Qf 
NEWSBUF ADDRESS, 
NBUE BASED NEWSBUF BYTE, 
g 
OLD $BUF ADDRESS, 
OBUF BASED OLDSBUF BYTE, 
OPTR BYTE, 
NB ADDRESS, 
TN BASED NB BYTE, 
OB ADDRESS 
INSERT BYTE IN{TIAL (PALS2) , 
PERCENT LIT (25Ht. 
BS LIT ‘O8H', /* BACKSPACE ¥*/ 
BELL LIT '‘O7H'. 
TAB LIT '09H'’ 
EOP Lit '‘SEH'’ /* UP-ARROW; END OF PROMPT */ 
EOC LIT '7CH'’ 7*BAR: END OF CODE * 
ERR LIT '7JEH'| 7* TILDE; END OF ERROR */ 
CTLZ LIT ‘TAH! 
RUEOUT LI? (TF 
END$FILE LIT 'SCH') /*BACK SLANT */ 


HAR “BITE, 
FROMPTSAREA ADDRESS; 


/% AOR FIO OI FO IO II AG IOI Oa IG aI Ia I ak ak Ca a 


ERROR DECLARATIONS 


SII OC IO IOI IO GG I EI III I IK aK IKK a7 


DECLARE 
ERRA ADDRESS 
ECMD BASED ERRA BYTE, 
BERRA ADDRESS 
WARN BYTE INITIAL (FALSE); 


/* MK HK Ae Fe ee 2 2 2 2 eK Ke 2K EE OE I OE 2 ER EK I CE i CK OC OK AR OK OR OK RK OK OK OK 


OUTPUT DECLARATIONS 


ee HC eK CK iC a CK I EK I OK ER 2 OK CK OK 2 RK Oe KK OK * / 


DECLARE 
CATSFCB ADDRESS INITIAL (5CH), 
DEFCE BASED DATSFCB BYTE 
ber da 2 Bere 
PRINTSLABE Bat bk 


f 


NITIAL (FALSE); 
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J RE I KH KK KK OK KK OK 


OPERATING SYSTEM INTERFACE MODULE 

PUNC@ION: SERVES AS AN INTERFACE TO THE RESIDE 
OPERATING SYSTEM. IT ALLOWS INPUT/OUTPUT OPERATIO 
BO br HANDLED BY SYSTEM CALLS. 


NT 

NS 
2 I A I a a OK a Kk / 
CRITI: 


PROCEDURE BYTE; 
D0. WHILE INPUT (CTS) ; 


RETORN NOT INPUT(CTI) AND O7FH; 
END CRTIIN; 


READCs PROCEDURE BYTE; 
DE REC BYTE; 
if Og ee >= 110$0001B /* LOWER CASE A */ 
AND C <= 111$1010B /* LOWERCASE Z * 
C = C AND 101$1111B; Ve 
Ree UR C-; 


/ THEN 
BECOMES UPPER CASE ¥*/ 
END READC; 
MON1: PROCEDURE eye. LEO) ; 
DECLARE PuRC BYTE, INFO ADDRESS; 
GO TO ENTRY; 
END MONT; 


MON2: PROCEDURE (FUNC,INFO) BYTE; 
DECLARE FUNC BYTE, 


INFO ADDRESS; 
GO TO ENTRY; 
END HON 2; 


PRINICHAR: PROCEDURE (3); 
DECLARE B BYTE; 
CALL MON1(2,B) ; 


EMD PRINT HAR; 


PRINTCHARI: Sa O EXC): 
DECLARE C 


IP ic AND 5110800008) = 0 /* CONTROL CHAR */ THEN 
CALL PRINECHAR (EOP) ; 
CALL PRINTCHAR(C 4OH) ; 
cND; 
ELSE 


CALL PRINTCHAR (C) ; 
OND PRINT CHART; 


CRibe: sPROGEDUR§ ; 


CALL PRINTCHAR (CR) ; 


GAEL PRINT CHAR (LF 
END CRLF 


PRINT: PROCEDURE AD j 
LECLARE A ADDRESS: 
Chel MONT (9, A) ; 
CALL CRLF: 


END PRINT: 
SETSDMA: 


PROCEDURE (A) ; 
DECLARE A ADDRESS; 
CALL Ppa.” aA) 


END SETSD 


DISKREAD: PROCEDURE (A) 
DECLARE A ADDRE 


RETURN HON2 (20, ,A): 
END DISKREA 


BY De 
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DISKWRITE: PROCEDURE (A) Brit 5; 
CLECLARE A ADDRESS; 
RETURN MON2 (21 Par: 
END DISKWRITE; 


CLOSE: EROCEDURE a) BYTE; 
DECLARE A ADDRESS: 
RETURN MON2(16,A) ; 


END CLOSE; 


SEARCH: PROCEDURE (FCB) BYTE; 
DECLARE FCB ADDRESS; 
RETURN MON2 (17, FCB) ; 

END SEARCH; 


MAKE: PROCEDURE (2CB) BYTE; 


DECLARE FCB ADDRESS; 
RETURN MON2(22,FCB) : 
END MAKE; 
LIPTHEAD: PROCEDURE; 
CALL MONT (12,0) ; 
END LIFTHEAD:; 
MOVE: EROCEDURE (SQURCZ,DEST, N) ; 
DECLARE (SOURCE DEST) ADDRESs, 
(S BASED SOURCE, D BASED DEST, N ) BYT2; 
DO WHILE (N2=N-1) <> 255; 
sype si SOURCE=SOURCE+1; ' DEST=DEST+1; 
END’ MOVZ; 
ERROR: EFROCEDURE(I); 
DECLARE I BYTE; 
DO CASE I; 
/* CASE 0’ OVERWRITING ERROR CODES */ 
CALL PRINT(.'OVERWRITING ERROR CODES $'); 
CALL PRINT(.'DISK READ ERROR 
CALL PRINT (L' ERROR COMMAND HOT DEFINED Bt yee 
CALL PRINT(.'A MESSAGE FILE EXISTS — 
CALL PRINT(.'DISK WRITE ERROR 
CALL PRINT(.'OUT OF DIRECTORY SPACE™ i, '); 
CALL PRINT(.'DAT PILE NOT PRESENTS! F 
CALL PRINT(.'MSG FILE NOT PRESENTS! 


END: 
GO to BooT; 
END ERROR: 


J RIO FOO FOO IOI FIO I FOI GC IO Ok ak a ek ak ak 
IPITLALIZE MODULE 
FUNCTIONS: TO OPEN THE APPROPRIATE DAT FILE, MAKE 
A MESSAGE FILE AND ALLOW THr USER TO SELECT A SET OF 
DATA ELEMENTS TO WORK WITH. IT THEN INITIALIZES 
MEMCRY WITH THe SELECTED DATA ELEMENTS. 


AE RA I A FRC RC RE CK ie 2 ek ke 2 ek 2 a eK KK / 


MAKESMSGSFILE: PROCEDURE; 
CALL HOVE (. 1USG" .4SGSFCB + 9,3); 
4SGS5FCB,M 6§ PC (12), ASGSECB (32) = 0; 
Ir SEARCH (.MSG$FCB) <> 255 THEN 
GAL ERROR (3) j 
IF MAKE(.MSG$FCB) = 255 THEN 
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CALL ERROR (5) 

IF OPEN (. 4SGSPC 1 2 = 255 THEN 
CALL ERROR (7) 

END MAKESMSGSFILE; 


INIT: PROCEDURE; 
CALL 


> ECB+1,8) ; 

CALL MOVE (. peaee+ 3); 

rE ebew? DFC 0; 

ic (bar 55 THEN 
ERR 


Os (DENT: =DISRE 

CALL ERROR 
CALL LIFTHEAD; 
END INIT; 


-MSG 
FILE; 
T'S D 
32) = 
B) =2 
R (6) | 
aie. DATSFCB)) <> OQ THEN 


INCSRM: Se 
KM KM ls 
aD INCSRM: 


INCS&@M: PROCEDURE: 
WORKSMAP = WORKSMAP + 1; 
END INCSWM: 


PRINISDATADSE: PROCED 


TS; 

7y* END OF RECORD MAP */ 

DO: R UMELEMENTS=I-1; RETURN; END; 
po J = i170 D 

CALL PRINTC MPTR); 
CALL INCSBM; 


END; 
CALL PRINTCHAR(' '); 
RM = RM + 2; 
END; 
END’ PRINTSDATASE; 
SAVESEXSRNSNR: PROCEDURE; 


= ER; /* EXTENT */ 
ALi INCS Hi; 


H 
ry 
md 
cx 
ro 
3 
bo 
i 
td 
ORK 
“TroNnwmna 


WMPIR = R 1) /* RN ¥*/ 

CALL TCS : 

WMPTR = R (DLSLEN + 3) - ER(1); /* NUMBER OF RECORDS */ 
CALL INCcEA 


END SAVESZXSRNSNR;: 


PRINTSPACE: PROCEDURE; 
DECLARE I BYTE; 

I = 1 TO DLdLEN; 

CALL PRINTCHAR (' Paes 


D; 
D ERINZSPACE; 
S 
iC 


mm C =,"r" 


DO; : RETURN: END; 
ESRSA = E£SRSA + D Z 


END ; 
END CHKSRESPONSE; 


SELSWE: PROCEDURE; 
DLSLEN = RMPTR 


a7 





© 


ror w 


“lic 


whjm OMNbI 
= 


DATA BREOONLS “PO WORK "WITHS ') ; 


OMMd2==zM 
Mme Kt 


oOnmtr-- 
[rw © 


i 
| en: 


C4 
ae 


‘Hero k 


END ; 
END SELSWE; 


SE TSUEM : PROCEDUR 
ATSAREA, BASESDATSAREA = WORK$MAP; 


TOP SHEE = SBDOS -— 1; 
WORKSMAP = MEMORY: . 
eer WHPTR (1) ; /* RN TO START READ */ 


2) 
NRSREAD §¢) 
END SETSMEM! 


OPENSEXT: PROCEDURE: 
FCB(12) = WMPTR; 
IF CPEN(DATSFCB) = 255 THEN 
CALL ERROR(1); 


END OPENSEXT: 
READSDS$REC: PROCEDURE: 
IP bECB (12) <> WMPTR THEN 
CALL OPENSEXT: 
CALL SETS DHA (DATSAREA) j 
IF (DCNT: =DISKREAD (DAT$PCB)) <> 0 THEN 
CALL ERROR(1); 
NRSREAD = N&3$READ + 1; 
DAT$SAREA = DATSAREA +°128; 
CALL SETS$DMA (80H); 
END READSDSREC; 
READSDAT: PROCEDURE: 
DO WHILE DATSAREA+128 ae TOPSMEM; 


IF NRSREAD = NR TH 


IP (WORK SMAP : =G@ORKSMAP+3 >= BASESDATS$AREA-1 T 
DO; /* FINISHED */ MORE = FALSE; RETURN; EN 
DO; DFCB(32) = = WMPTR(1) i NRSREAD = 0; 


=" WMPTR (2); 
CALL READSDS$REC; 


END; 

MORE = TRUE 

SAVESEXT = DFCB 12) ; 
SAVESRN = DPCB(32 
HOLDSWM = WORKSMA 
ZND READSDAT: 

READSMORE: PROCEDURE: 
DECLARE HOLD ADDRESS: 
HOLD, WORKSMAP = HOLDSwWM; 

FCE(12) = SAVESEXT; 
DFCE(32) = SAVES$R 

DATSAREA = SAS ESDAPSAREA: 
CALL READ$DAT: 

WORKSMAP = HOLD; 
TSCATSAREA = DATSAREA;: 
DATZAREA = BASESDATSAREA;: 
END READSMORE; 


= MEK RIK IK He EK fe eK KK AK IK AE KK ee EE OK IK IE EK EK OK KK OK 


EDITING MODULE 
FUNCTION: TO ALLOW ENTRY OF DATA AND EDITING OF 
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EeepRGD DATA BY USE OF LINE EDITING FUNCTIONS. THE 
oor. @ay SELECT TO ENTER DATA DIRECTLY INTO THE 
CODED AREA OR BE PROMPTED AS TO WHAT INFORMATION IS 


REQUIRED. 


FR HE KK HK KK he 2c 2K a OK ee a 2 KK ie ic KK ee ck KK Ke * / 


/* PROCEDURES OF THE LINE EDITOR ¥*/ 


BACKSUP: PROCEDURE; 
IF NBTR > 0 THEN 
NPTR = NPTR - 1; 
CALL PRINTCHAR BS) 3 
CALL PRINTCHAR . 
gate PRINTCHAR (BS) ; 
ELS ’ 


E 
CALL PRINTCHAR (BELL) ; 
END BACKSUP; 


MOVESTOSOLD: PROCEDURE; 
CALL MOVE (NEWSBUr+1,OLDS$BUF+1, (OBUF:=NPTR) ) ; 
OPTR = 0; = 0; 
END MOVESTOSOLD; 
OLDSTCSNEW: PROCEDURE; 
NBUr(NPTR:=NPTR+1) = OBUF (OPTR:=OPTR+)) ; 
END OLDSTOSNEN; 
ECHOSON: PROCEDURE; 
CALL PRINTCHAR (NBUF (NPTR:=NPTR+1) :=(OBUF (OPTR:=OPTR+1))) ; 


END ECHOSON; 


COPYSONE: PROCEDURE; 
IF OPTR <= OBUF THEN 
CALL ECHOSO 
E CALL PBINTC CHAR (BELL) ; 
COPYSONE; 


oN 
Qe 


ON: pea oe banger: PARTIAL MOVE OLD TO NEW */ 
WHILE OPTR 
. BC HO ; 


PSMOVESON; 


FROCEPURS ; 

INSERT THEN 

CALL PRINTCHAR('>') ; 
E 

C 

iE 


tm 
t 
W~ 


MeL PREWPCHAR('<') ; 
INSERT = NOT (INSERT) ; 
END ENTER; 


PRI NISCLD: PROCEDURE; 
ECLARE I BYTE; 
302 1 TO OBU 
CALL PRIN TCHARI (OBUF (I)); 
ND; 


CALL CRLF; 
END PRINTS$OLD; 
PRINISNEW: PROCEDURE; 
DECLARE I BYTE; 
DO I = 1 TO NPTR; 
CALL PRINTCHARI (NBUF(I)); 


ERD; 
END PRINTSNEW; 


PRINTSBOTH: PROCEDURE; 
CALL PRINTSOLD; 
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CALL PRINTSNEW; 
END PRIN T$BOTH; 


COPYSRMSOSN: PROCEDURE; 
/* COPIES REMAINING CHARACTERS FOR OLD TO NEW BUFFERS ps 


DO WHILE OPTR <= OBUF; 
CALL OLDSTOSNEW; 


EN 
cai OPYSaNSOSN: /* INDICATES WHEN DONE */ 
END COPYSRMS 


BSSO$N: PROCEDURE 
/* FACKSPACE SLD PTR AND NEW PTR 1 CHAR * / 

TP (QPTR > 0 ND (NPTR > 0) THEN 

O 1 

N 1 


"Oet 


i = \; 


CALL ce 
END BSSOSN 


COPYSON: PROCEDURE {ch 
DECLARE (C,I) BYTE: 
I=OFTR; 
DO WHILE OBUF(I:=I+1) <> 
IF ob > OBUF THEN /* NO “ACH * / 


Oba LL PRINTCHAR (BELL) ; 
oy RETURN 


yi bo WHILE */ 


WHILE OPTR < I; 
CALL ECHOSON: 


D; 
D COPYSCHs: 


PROCEDURE oc e 
LARE a” O;7e |,CHarl, ECHO) BYTE; 


= - 


Ot 
oO 


LE 


© 
ty 
bu Wl MQee 
H a: 2 © 
br 


O 
oMmoOH nh 
Orotith @wza Of 


TL ( (Onde (Pt :=P1+1) <> CHAR) ; 
P1 > OBUP THEN /* NO MATCH */ 


rs 
CALL PRINTCHAR (BELL) ; 
RETURN; 


2’; 
7,00. WHILE ‘FY 
I 


THEN 
= OPTR+1 TO Pl 
CALL P RINTPCHAR (PERCENT) ; 


EC 
D 


END; 
OW CONDENSE THE BUFFER * / 


WRC 
=o= O1lln 
w~O # 

%! an CO 


= OBUF 
J:=d+1) = OBUF(I:=I+1); 


Oao 
rpe « 


DEL 


OW 
ANOmM=aA moRI 
b> bf Oo hj} °° 
read 
tétoeis rd 

au 
AmwilwWO pil 
md WM 


END DELSN: 
DISPLAYERMSOSN: PROCEDURE; 
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DECLARE I Beare ; 
d 0; 


GALI CRLF 
DO rae (I: a OB UF 
IF I <= OPTR yo 
CALI eee oa, 


ELSE CALL PRI 
L CRLF 
L 


EVEN LINE */ 


<a 

EN 

an : 

E AR (D BUF (I)); 


H 
A 
T 


HO man 
mo, De» fe 
Oreo 


bij ee 
mo 
Ord 
* ty 
oy 
V 


ti=T+1) < OBUF; 
(ial); 


END; 
CALL Ca-1 
iwc = OB 


BLSE mC HLL PRINTCHAR (BELL): 
END DEL$O; 


BOGAPFE: EBROCEDURE; 
/* TORNS OFF SPECIAL MEANING OF CHARACTER TO FOLLOW 
AND ENTERS CHARACTER IN NEW BUFFER = 


CALL PRINTCHARI (CHAR: =READC) ; 
NBUF NPTR:=NPTR+1) = CHAR; 
Ee ESCHP E; 


PRINTSTAB: PROCEDURE} 
IF (NPTR 5) 2 IZESNBUF THEN 
CALL PRINTCHAR (BELL ys 


NBUF (NPTR:=NPTA+1) = TAB; 
CALL PRINTCHAR (TAB) ; 
END PRINT STAB; 


- 


ye SAD OF PROCEDURES CALEED FROM THE TLE EDITOR <7 


INC$DA: FROCEDURE; 
DATSARZA-= DATSAREA +1 
END INCSDA; 


INC$CA: PROCEDURE; 


DESA = CODESA + 1; 
D PHCSCA: 


L 
PROMPT HEN “cid OLDSTOSNEW; 


Omar 


a 5 
END MOV 23 DLSNE®: 


MOVESCODESOLD: PROCEDURE; 
DECLARE DEST ADDRESS, D BASED DEST BYTE; 
DEST = OLD$BUFt1; 
OPTR NPTR,OBUF = 
White bat <> B0¢: 
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D = DA 
IF NOT (PROMPT) THEN CALL PRINTCHAR(D) ; 
CALL INCS$DA; 

DEST = DEST’ +1; 

OBUF = OBUF +1: 


AL CRL 
CALL NOVESDLSNEW: 
END MOVESCODESOLD; 


SETSPTR: PROCEDURE; 
DO WHILE DAT <> ERR ; 
CALL INCSDA; 


END; 
CALL INCSDA; 
BERR = AN = DATSAREA; 


DO WHILE Dat <> ERR; 
CALL INCSDA; 


abd INCSDA; 
MPTSAREA = DATSAREA: 
SETSPTR: 


PROCEDURE: 
| tical 


PROCEDURE; 

T ADDRESS, (I,A) BYTE: 
: PROCEDURE; 

DE = NBUF(I); I= I + 1: 
LL INCSCA; 

D INSSINC: 


CODESA = BSCODESA + DLSLEN; 

E = DLSLE +1: 

DG WHELE *(ae =I <= NPTR) AND (I <= OBUF); 
5. CALL INS$SINC: 
El 


Ir A THEN /* CODE LINE HAS GROWN */ 
bo WHILE I <= NPTR+1; 
IP CODE = ERR THEN /* AT ERROR CMDS */ 
CALL ERROR (0) ; 


L 
CALL INSSINC; 


END; 
, CODE = EOC 
FLSE 
DO: 
CODE = BOC: T = OLDSBUF+OBUF+1; 
DO WHILE (CODESA :=CODE$SA +1) <= T: 
END; 
; END; 
END UPDATESDAT: 


/* ME RE HK eK AK A I CK I EE EH EK AK EK AK KK AK EE KK eK eK KK KK 


ERROR MODULE 
FUNCTIONS TO CHECK- FOR POSSIBLE ERROR CONDITIONS. 
ERROR COMMANDS ARE DEFINED IN DOS$CHD PROCEDURE. 


ICC oC aa ok ok dak dio kk ok Kk / 


RESENTEBS PROCEDURE; 
CALL MOVESTOSOLD; 
CALL PRINTSOLD; 
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WARNING: PROCEDURE (I); 
DECLARE I BYTE; 


WAR LOU E 3 
DO CASE I; 
CALL PRINT(.'WILL DESTROY OLD INFO ) 
CALL PRINT(.'EXPECTING ALPHABETIC CHAR $'); 
CALL PRINT(. 'EXPECTING NUMERIC CHAR $'): 
END: /* CASE */ 
CALL CRLF: 


END WARNING; 
INCSNB: Se ee. 

NB NB 1% 

END INCSNB; 
SPSPDSCOM: PROCEDURE B 

vECLARE SPACE Lit 


RETURN ((TN = SP 
END SPSPD$CO4; 


ALPHA: PROCEDURE BYTE: 
DECLARE LCA LIT '61H', L 
RETURN { TN >= 'A') AND 

AND <= LCZ)) OR S$ 
END ALPHA: 
CHKSALPHA: PROCEDURE; 
DO WHILE TN <> '/!; 
IF NOT (ALPHA) THEN 


CALL WARNING(1); 
RETURN: 


C 


fe 
: )} OR ((TN >= LCA), 


ZL 
(IN 
>PDS 


END; ; 
: CALL INCSNB; 
ND CHKSALPHA; 


NUMERIC: PROCEDURE BYTE; 
RETURN 4442 TN - 'O') <= 9) OR (TN = 2DH /* MINUS */) 
OR SPSPDSCOM) ; 
END NUMERIC; 


CHKSNUMERIC: PROCEDU 
DO WHILE TN <> ! 

Ts NOT (NUME 

CALL Ww 

Cab INCSNB: 


END; 
END 


E; 
IC) T HEN 
RNING (2); RETURN; END; 


“HILE CODE by lijfaligs 
CALL INCSCA: 


INCSCA; 
Hidne Dae <> '/'; 
CALL INCSDA; 


L INCSDA; 
CALL INCSNB; 
CALL INCSER: 
END NEXTSSPF: 


DOSCMD: PROCEDURE, 
ie On 


ECMD = THEN RETURN; ELSE 
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) OR (TN = PERIOD) OR (TN = COMMA) ) ; 





IF ECMD 
IF ECMD 

CALL ERROR(2); 
END DOSCMD: 


CHKSERR: PROC EDURE; 
WAR FALSE; 
DO WHILE ECMD <> ERE; 


THEN 
CALL NEXTSSF; 
CALL DOSCMD; 
IF WARN THEN RETURN; 
CALL INCSER; 


END; 
END CHKSERR; 
ASKSQUESTION: PROCEDURE; 
BO REGS DAT <2 t7!; 
CALL PRINTCHAR (DAD) ; 
CALL INCSDA; 


D; 
D ASKSQUESTION; 
5 
R 


i il 
= 


tdhy 


CHK SANSWER: PROCEDURE; 

N = FALS 

WHILE tend <> tsi. 
CALL DOSCMD; 
IF WARN THEN RETURN; 
CALL INCSER: 


END; 
END CHKSANSWER; 


ENDSIP: PROCEDURE; 
GOB = OLDSSUS + DEST 
iF (vB=H EWSBUFFDLSLEN* 1) = NEWSBUF + NPTR THEN 


Site WARNING (0) ; 
RETURN; 


END; 

F (NPTR+1 = ae: 

L CHKSERR; 
ENDSI?; 


LEER: PROCEDURE; 


DO WHILE NPTR 
IF (CHAR: =REA 
DO CASE C 

7* 


N 
N 
AN 
WA 
DO 


NBU 
CAL 
END 


SIZESNBUF; 
L = CTLZ THEN /* CONTROL CHAR */ 
5” 


< 
C 
A 
A NULL */ 


L 
D < 
H 
C 0 
* CASE 1 CONTROL A ¥*/ 


CALL BACKUP; 


/* CASE 2 CONTROL B #*/ 
CALL MOVESTOSOLD; 


/* CASE 3 CONTROL C */ 
CALL COPYSONE; 


ee CASE 4 CONTROL D ¥*/ 


DO; 
CALL PSMOVESON: 
GO TO ENDEDIT1; 


END; 

/* CASE 5 CONTROL E */ 
CALL ENDER; 

/* CASE, 6 CONTROL F §*/ 
GO TO "ES DEDitZ; 
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/* CASE 7 CONTROL G ¥*/ 
CALL — 
/* CASE 8 CONTROL H #*/ 
GALL emOVESOR 
/* CASE 9 CONTROL I ¥*/ 
CALL PRINTSTAB; 
/* CASE 10 CONTROL J */ 


GO TO ENDEDIT1; 
/* CASE 11 CONTROL K */ 


/* GSE 12 HSOENe Cm 7 
CALL COPYSRMSOSN 


FACES 13 COMMPROL “iN” Fy 
GO TO ENDEDIT1; 


/*® CBSE 14 CONDROL N *¥/ 
CALL BSSOSN; 


/* CASE 15 CONTROL x / 
CALL EOpYS ON (READC) ; 


/* CASE 16 CONTROL P ¥*/ 
CALL DELETE (TRUE) ; 


Proms E 1] CONMEOL 0 »*y 
CALL DELSN; 


/* CASE 18 CONTROL R ¥*/ 
CALL DISPLAYSRMSOSN; 

/* CASE 19 CONTROL S ¥*/ 
CALL DEL$O; 

/* CASE 20 CONTROL T ¥*/ 


- Y* CASE 21 CONTROL U */ 
CALL COPY$ON (TAB) ; 
/* CASE 22 CONTROL V */ 
CALL ESCAPE; 


° 


7Y*=CASET 23 GONROL f+ 
sue LATER. ¥/ 


/* CASE 24 CONTROL X */ 
CALL DELETE (FALSE) ; 


*CASE 25 CONRROL @ *y7 


“ESEL PSMOVESON; 
CALL MOVESTOS$OLD; 


END; 
/*® CASE 26 GONTROL 2 ¥/Y 
CALL COPYSON (READC) ; 


END; 
BLSE /* CHECK SPECIAL CASES */ 
IF CHAR = RUBOUT THEN 
CALL BACKUP; 
ELSE 
"CALL PRINTCHAR CHAR) j 
NBUF (NPTR:=NPTRt1) =CHAR; 
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BR@R = /2 THEN CALL PRINTCHAR (BELL) ; 
Ie No? (INSERT, THEN OPTR =" OPTR + 1; 


BD; /* DO WHILE */ 

ee BEREVWE HERE IF BUPFER FULL */ 
CALL J ee oe 

ENDEDIT1 

ENDEDIT2: CALL GREE ; 

END LEDIT; 


J JRO I a ik a kk i a 


OUTPUT MODULE 


FUNCTION: TO UPDATE THE DAT FILE AND’ THE 
TFORMNSTIOGN JUST EDITED TO THE WESSAGCE FILE. 


MEW A A eMC oe eK AK eo eA ee ee ee he Re oe 2 ae 2c 2 2 oc A ei oe 2c eo oie sed 


INCSMSG: PROCEDURE; 
IP (MSGSAREA: s=MSGSAREA + 1) < 100H THEN 


RETU 

IF DISKWAITE (. ¥ ne os 1-D <> 0 THEN 
CALL 

MSGSAREA = S OH: | 
END INCSMSG; 


or ee os PROCEDURE; 


IF PRINTSLABEL THEN DATSAREA = BSCOD ESA; 
BLSE DATSAREA = BSCODESA + DLSLEN + 1; 
DO wHILE DAT <> EOC 


MSG = DAT; 
CALL INCSMSG; 
CALL INCSDA; 

END; 

MSG = 

CinL, “resus: 

MSG = LF: 


Cause “rHesusc: 
END MOVESMSG: 


WRITESMSG: PROCEDURE; 
MSG = CTLZ; 
by DISKWRITE (. MSGSFCB) <> O THEN 
CALL ERROR (4) ; 
END WRITESMSG; 


CLOSESFILES: PROCEDU 
IF CLOSE(.MSG$FC 
GALL BRROR (7 

DFCB 13} 3 SAVESE 


DFCB (32 

IF CLOS (DATSBCB) 
CALL ERROR (6 

END CLOSESFILES: 


BLANKSBUF: PROCEDURE; 
DECLARE A ADDRESS, (B BASED A,i) BYTE; 
A = BUFFER; 
DO I = 1 TO 180; 
B= 0; A= A + 1; 
END; 
END BLANKSBUF; 
BASESNEXTSDE: oe 
DECLARE IL 
DO I= 1 ro. at FE) 
BSCODESA = B CODESA + Ws: 


END; 
WORKSMAP = WORKSMAP + 3; 


R 
B) = 255 THEN 


ile 
XT 
RN; 
- 25) THE 
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END BASESNEXTSDE; 
og Tp ay ee PROCEDURE; 
WORKSM * ME O 


ees 
BSCODESA = BASESDATSA 
DO WHILE BSCODESA < TSDATSAREA; 


See ee = VMDTR: 
DPCB(32) = WMPTR(1); 
CALL SPR ieee) 
IF DISKWRIT (DATSFCB <> 0 THEN 
KUL. ERROR (4) j 
ss CALL BASESNEXTS$DE; 
Gat L SETS DMA (80H) j 
END UPDATESDATSFILE; 
EDIT: PROCEDURE: 
CONTINUE: 
DO WHILE (DATSAREA < TS$DAT$SAREA) ; 
CALL NEXT 


EY Pereacel The 
DO WHITE DAL <> EOP; 
CALL ASKSQUESTION; 
WARN = TRUE; 


as 
NBUr(NPTR:=NPTRt+1) = '/'; 
CALL CHK$SANSWER; 


END: 
CALL NEXTSSF; 
END: 
eae 
REL LEDIT: 


CALL ENDSIP; 
END: 
IF wARN THEN CALL RESENTER; 
ELSE 
CALL UPDATESDAT; 
CALL BLANKSBU Uri 
CALL BASESNEXTSDE; 
- DATSAREA, CODE$A = 
END; ni DO WHILE */ 


CALL UPDATESDATSFILE; 
LY GORE Tae 


0; 
CALL READSMORE; 
ey? 10 CONTINUE 


CALL "WRITESMSG; 
CALL CLOSESFILES; 


BSCODESA; 


GO TO BOOT: 
EMD EDIT; 
/*eeeeex START MAIN PROGRAM HERE  ***%e# ¥/ 
OLDSBUF = (NEWSBUF := . BUFFER) +90; 
OBUF = Q; 
CALL INIT; 
CALL SELSWE: 
CALL SETSMEM:; 
CALL READSDAT; 
CALL LIFTHEAD: 
TSDATSAREA = DATSAREA; 
BSCODESA,CODESA,DATSAREA = BASESDATSAREA; 
WORKSMAP = . MEMORY; 
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CALL BRINE (. ‘DATA LABELS TO - CEN STH ESREPORD?S.") ; 


CALL PR PRINT AR(CHAR := READC 
IP Cuan par, Y' THEN PRINT$SLABEL = TRUE 
CAML BRINT(. 'DO YOU WISH TO BE PROMPTED?$) ; 
CALL PRINT HAR (CHAR:=READC) ; 
~ 9 
IF CHAR = 'Y' THEN PROMPT = TRUE; 
Son E DebTs 
F 
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JR RIO RI ROO IC fa a ak i ie ie fe ke akc ke 2 


PROGRAM DESIGNED TO CREATE DAT EXECUTABLE FILES USED 
IN CONJUNCTION WITH REPORT ORIGINATION SYSTEM (ROS). 
ROS IS DESIGNED TO GENERATE FORMATTED REPORTS. 


26 IO II III OI a ia ok dak a ak / 
1004: 


/ * ME ARC AE RK eK 2c 2c a oe 3 a ae 8 i oc ic 2 2 oc a 2 2 ke ec ok ie ae kee ie ae ake ie ae te oc 2 ok 


INITIALIZE DECLARATIONS 


AAI IC III AK IG II I OI a Ia ok ica ak ak a // 
DECLARE 


LIT LITERALLY ‘'LITERALLY', 
BOOT LIT 
ENTRY LIT ‘O00SH', 
TRUE nn et 
FALSE LIT 'O# 
FOREVER LIT ‘WHILE TRUE!, 
CR LIT ‘ODH', 
LF LIT ‘OAH', 
DCNT BYTE, 
CTI mr |OfgT. 
CTS Ler |e: 
/* MK He Me ae he de ae eae de oe ae oe ote ee ke ote ie KK ke ode ok ake ote ake ode ie ee ie ade de ee ake ic ae ie ade ee ae oie ae ie i ke Ke OK 


INPUT AND EDITING DECLARATIONS 
ECO IK OR III I II IA I IOI a Ii aka ak ak kai ike ake a ie ke ick teak ak ake ak ok / 


DECLARE 
BS LIT ‘'O8H',  /* BACKSPACE */ 
PERCENT LIT ‘'25H', 
BELL LIT ‘'O7H', 
TAB LIT ‘O9H', 
EOP LIT ‘'SEH', /* UP-ARROW; END OF PROMPT */ 
ENDSFILE LIT ‘'5CH', /*BACK SLANT * . 
FOC LIT ‘'7CH') /*BAR: END OF CODE */ 
ERR _LIT ‘'7EH', 7* TILDE; END OF ERROR */ 
CTLZ LIT ‘'1AH', 
RUBOUT LIT '7FH', 
DAT$SFCB ADDRESS INITIAL (5CH), 
DFCB BASED DATS$FCB (33 BYTE, 
NUMSREC BYTE, 
DLSLEN - - BYTE, 
TMEM ADDRESS, 
RECORDSMAP ADDRESS, 
EMPTR BASED RECORDSMAP BYTE, 
EXT BYTE INITIAL (0) 
STORE ADDRESS, 
P BASED STORE BYTE, 
BSTORE ADDRESS, 
SP ADDRESS, 
30 PEER aus 22h BYTE, 
SIZESN "908, 
NEWSBU ADDRESS, 
NBUZ BASED NEWSBOF BYTE, 
NPTR 
OLD $2UF "ADDRESS, 
OBUF BASED OLD$BUF BYTE, 
OPTR BYTE 
INSERT BYTE INITIAL (FALSE), 
CHAR BYTE, 
NODS128$MASK LIT ‘QPPSOH', | /* GIVES MEMORY SIZE 
IN MULIPLES OF 128 BYTE BLOCKS */ 
BDOSA ADDRESS INITIAL O00€H) 
SBDOS BASED BDOSA ADDRESS; 
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Cabig: BROCEDURE BYTE; 
aD WHILS INPUT (CTS) ; 


RETORN NOT INPUT(CTI) AND O7FH; 
END CRTIN; 


RESSC: PROCEDURE BYTE; 


/* GET A CHARACTER FROM THE CONSOLE AND TRANSLATE TO 
UPPER CASE * / 


DECLARE C 
me {(C:=CR O1B /* LOWER CASE A #/ 
7/*® TOWER CASE 2 S78 fcEN 
By a BECOMES UPPER CASz& */ 


MON1: PROCEDURE 
DECLARE FUNC 
GO TO ENTRY; 
END MONT; 


SON: PROCEDURE (FUNC,INFO) BYTE; 
DECLARE FUNC pers, ENE O ADD KE SS ; 
GO TO ENTRY ; 


, LNFO 
: ENFO) ADDRESS: 


END MON2; 
PRINTCHAR: PROCEDURE (B) ; 
DECLARE TE: 
CALL NON] Bl 
END PRINT 


PRINTCHARI: PROCEDURE (C) ; 
TECLARE C BYTE | 
IF ie AND 110300008) = 0 /* CONTROL CHAR */ THEN 


co eatt BERIEGHLE (202) ; 
_ CALL PRINTCHAR WOH) ; 


END 
ELSE CALL PRINTCHAR (C) ; 
END PRINTCHARI; 


CRLF: PROCEDURE; 
CALL PRINT CHAR (CR) ; 
CALL PRINTCHAR(LF) : 
END CRLF; 


PRINT; PROCEDURE (Aas 
DECLARS RK ADDRESS; 
CALL MONT (9, A); 
CaLL CRLF; 

END PRINT; 


MOVE: PROCEDURE (SOURCE,DEST,N 
DECLARE (SOURCE,DESt) ADDRESS 
(S BASED SOURCE, D BASED DEST, N ) BYTE; 


DO WHILE = GNi <> 255; 
TRCE= shugcEsi: DEST=DEST+1; 
END: 
END MOVE; 
FILL: PROCEDURE(START, DEST,CH 
DECLARE (START,DEST) ADDR 
(S_ BASED START CHAR) 
DO WHILE START bEST 
S = CHAR: 
START = START + 1; 
ZND; 
END FILL; 
ERROR: FROCEDURE(I) ; 


AR) ; 
ESS, 
Bea: 
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DECLARE I BYTE 
BO GASH. I 
CALL PRINT(.'LACK ERR 
CALL PRINT(.'DISK WRI 
CALL PRINT?(.*FILE NOT 
END: 

CALL CRLF: 

GO TO BOOT: 

SND ERROR: 


J FR RH HR HA RE HE HE HE i i 2 2 2 a RC i 2 ic i 2 2 I A 2 2 kee 2 KC a oC aK KK 2c 


INPUT AND EDITING MODULE 


26 I I I IO FO ICI 3G FO IG IO I i i kk si ak Ai ke ake okie ak ke 


PROMPT: ao eee 


DECLARE 
CALL NONI (9, -' EXPECTING $'); 
DO CASE TI; 
CALL PRINT(.'CODE INFO $*) 
CALL PRINT(.'ERROR COMDS $ : 
eypCaee PRINT .'PROMPT INFO $! 
END; 
END PROMPT; 


ENCSEA: PROCEDURE; 
RECORDSMAP = RECORDS$MAP + Vs 
END INCSR4M; 


GOSNEXTSREC: FROCEDURE: 
/* INCREMENTS STORAGE POINTER TO NEXT EVEN 
RECORD SECTOR 
DO WHILE SPTR < ST 
SPTR = SPTR + 
NUMSREC=NUMS$RE 

IF NUMSREC = 


© 
t+ fo # OM 


| i el 


STORE = SPTR-1; 
END GOSNEXTSREC: 


MOVESDL: PROCEDURE; 
DECLARE A -ADDRE 
T=0; A= pcRacoR 

B 


+ 


FCORDSMAP+1) <= A; 


END: 

RMPTR = EXT; 
CALL INCSRM: 
RMPTR = NUMSREC; 
END MOVESDL:; 


WRITE: PROCEDURE; 
DECLARE ADDRESS; 


MOR 
DO WHILE beanie < STO 
CALL MOVE 80H 128) 3 
IF (DCNT := (21, DATS 
GALL eG ei 


eroRE= =BSTORE; SPTR=BSTORE; 
CALL MON1 (12,0); /* LIFT READ WRITE HEAD */ 
END WRITE; 


INCS$STORE: PROCEDURE; 
f@ GHEBGKS FOR MEMORY OVERFLOW INCREMENTS STORAGE PTR eT 
Lr {STORE :=STORE+1) ? THEO DEEN 
CelLL WRITE; 


RE; 
CB)) <> 0 THEN 
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EMD INCSSTORE; 


WOVESSTORE: PROCEDURE; 
/*® STORES 


INFORMATION FROM INPUT TO FILE MEMORY AREA */ 
DECLARE I BYTE; 
DO I=1 TO OBUF: 
CALL INCSSTORE: 
SP = OBUF(T) : 


END; 
END HOVESSTORE; 
BE Lop ees oO PROCEDURE; 
DECLARE (A,T) ADDRESS, B BASED A BYTE; 
A = STOR T= anes . 126. 


DO WHILE {A:=A+1 
B= 0; 


END ; 
MD FRLLSCODESZERO; 


sidiiiy : ae PROCEDURE; 


CHARACTER “he A BAR (!) INDICATES END OCF CODE AREA 47 
CALL GOSNEXTSREC; 
CALL MOVESDL; 
CEL MOVESSTORE; 
Can L INCSSTORE; 


= EOC 
CALL PILL SCODESZERO; 
CEeEELF ; 


L 
CALL PROMPT (1) ; 
END ENDSDL; 


ENDSREC: PROCEDURE; 


/*® CALL WHEN A UP-ARROW IS ENTERED FROM THE KEYBOARD. 
INDICATES END OF DECODED INFORMATION ef 


CALL MOVESSTORE; 
CALL INCSSTORE; 
SP = EOP: 

id c 

CALL Br (0) ; 


PR 
rND END SREC: 


ENDSER&: PROCEDURE; 


INDICATES END OF ERROR CHECKS 
BACK$STORE: PROCEDURE: 
STORE = SPIR + 127; /* TO NEXT RECORD - 1 */ 
SP = ERR; 
STORE = STORE - as 
OBUF = OBUF + 1; 
DO WHILE (OBU?:=OBUF-1) <> 0; 
Ir SP = £0C THEN 
CALL ERROR(O); 
SP = OBUP(OBUF) ; 
STORE = STORE - 1; 


/* CALLED WHEN (TILDE) ENTERED AT we 


En D ; 
SP = ERR: 
END BACKSSTORE: 


CALL BACKSSTORE; 
CALL GOSNEXTSREC; 
CALL CRLF; 

CaLL PROM PT (2) ; 
END ENDSER 


ENDSF: PROCEDURE; 


/* CALLED WHEN END FILE | ) BLACKSLASH ENTERED INDICATES 
Beep OF FILE 

DECLARE (EX, ‘One: BITE; 

Ca bL.@OVaestTor 

CeLE @NCSSTORE; 

SP=ENDSFILE; 
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CALL WRITE: 

CALL INCSRM: 

RMPTR = EOC: /* MARK END OF RECORD SHAP * / 

RECORDSMAP = RECORDSMAP + DLSL /* SAVE EXT AND RN OF 

NEXT RECORD TO BE WRITREN * / 

RMPTR = DFCB(12) ; 

CALL INC$RM 

RMPTR = = DECA (32) 3 

EX = B (42) 34 

DPCB(3 2) DFC ey: 

CALL MOVE(. HE 

IF (DENT := ONS 
AL BhaoR (1 

DFCE(12) = 

IF MON2(16 T 
CALL ego? 

GO TO BOOT; 

END ENDSF: 


BACKSUP: PROCEDURE; 
Ir oe > © Tani 


= DFCB (32) ; 


’ 


128); 
,DAT$FCB)) <> 0 THEN 


(32) NR; 
)£'255 THEN /* CLOSE FILE */ 


© 
a 


t 


s 


’ 


oO 
) pw ° 
au 


NO hg Nye o 
~~» OO ae wou 


m—"-QQO We 


RETR = PTR -i; 
GATE PRENTCHAR | BS) 5 
CALL PRINTCHAR =); 
CALL PRINTCHAR BS) 2 
BAND ; 
ELSE 


CALL PRINTCHAR (SELL) ; 
END BACKSUP; 


MOVESTOSOLD: EROCEDURE; 
CALE MOVE (NEWSBUF+1, OLDSBUF+1, (OBUF:=NPTR) ); 
OPTR = 0; NPTR = 0; 
CALL ate - 
END MOVESTOSOLD: 


ECHOSON: PROCEDURE; 
CALL PRINT CH AR (NBUP (NPTR:=NPTR+1) : = (OBUF (OPTR:=OPTR+t1) )) ; 
END ECHOSON; | 


COPYSONE: PROCEDURE; 
IF OPTR < OBUF THEN 
Chi ECHOSON: 
ELSE CALL PRINTCHAR (BELL) ; 
END COPYSONE; 


PSMOVESON: PROCEDURE; er PARTIAL MOV OLD ©TO NEW #7 
DO WEILE OPTk < Osvur; 
CALL ECHO SON; 


END; 
END PSMOVESON; 


ENTERS PROCEDURE; 
it Beol RT ALN 
CALL oe 


Lo & 
CALL PRINTCHAR ('<'); 
INScRT = NOT (INSE ioe 
EMD CeLER; 


PRINTSOLD: PROCEDURE; 
DECLARE I BYTE; 
DO I= 1 TO OBUrF; 
5 Call PRINTCHARI (OBUF(I)); 


Gaui CRLF: 
END PRINTS$OLD;: 


ST PROCEDURE; 


CARE I BYTE; 
I = 1 TO NPTR; 
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WOOK bie 
Sern m= 


COPYSRMSOSN: PROCEDURE; 
/* COPIES REMAINING CHARACTERS FOR OLD TO NEW BUFFERS * / 


DO WHILE OPTR <= OBU 
pe Wena) "= OBUE (OP TER: -ORDRS |) ; 


cath PRINTCHAR('+'); /* INDICATES WHEN DONE ¥*/ 
END COPYSRM$O$ : 
BS$O$N: PROCEDURE; 
/* EACKSPACE OLD PTR AND NEW PTR 1 CHAR ¥*/ 
ie: (OPTR > 0) AND (NPTR > 0) THEN 
OPTR = OPTR - 1; 
NPTR = NPTR - 1: 
OBUF = OBUF - }; 
END; 
ELSE 
CALL PRINTCHAR (BELL) ; 
END BSS$OSN; 
COPYSON: BROCEDURE | oe NEXT) 
DECLARE (C, 2 BYTe 
I=OPTR; 


DO WHILE OBUP(L:=I41)e@<2 C; 
ae 2 OBU? THED /7* NO MATCH -/ 


a PRINTCHAR (BELL) ; 
RE TURN 


EN 
END; /* "bo WHILE */ 
IF NOT(NEXT) THEN I=I-1; 
DO WHILE OPTR < I; 
CALL ECHOSON; 
END ; 
END COPYSON; 
DELETE: PROCZDURE(ECHO) ; 
/* ECHO TRUE INDICATES TO START FROM THE CURRENT 


POSITION OF OLD BUFFER AND ECHO A % (PERCENT) FOR THE 
DELETED CHARACTER. ECHO FALSE INDICATES TO START AT 
THE BEGINNING OF THE OLD BUFFER AND DON'T ECHO FOR 
THE DELETED CHARACTERS. */ 
DECLARE (I,J,P1,CHAR1,ZCHO) BYTE; 
I? ECHO THEN P1 = 0; 
ESSE Bl = OPTR; 
CHAR1 = READC; 
DO WHILE (OBUF (P1 :=P1+1) <> CHAR1); 
iF PI > OBUF THEN /* NO MATCH */ 
DO; 
CALL PRINTCHAR (BELL) ; 
RETURN; 
END; 
END; /* DO WHILE ¥*/ 
IF ECHO THEN 
DO I = OPTR+1 TO P1; 
CALL PRINTCHAR (PERCENT) ; 
END; 
/* NOW CONDENSE THE BUFFER ¥*/ 
J=OPTR; 
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1; 
DO WHILE I <=,0BUF; 
OBUF (J:=J+1) = OBUF(I:=I+1) ; 


OBUF = OBUF - (P1-OPTR+1); 
END DELETE; 


DELSN: Be Es ; 


NPTR=0; OPTR=0; 
CALL PRINTCHAR (END$FILE) ; 
CALL CRLF; 
END DELSN: 
DIS PLAY $RMSO$N: PROCEDURE; 
DE I BYTE; 
I "OF 
CALL CRLF; 
DO WHILE | (I:=I+1) <= OB 
IF I <= OPTR THEN /* “EVEN LINE */ 


"CALL PRIGW Gi@Ra' ‘); 
CALL PRINTCHAR (OBUF(TI)) ; 


END: 
CALL CRLF: 

CALL PRINTSNEW: 

END DISPLAYSRMSO$N; 


DELSO: aes eG 
aE oe ar > OQ THEN 


°° bECLARE I BYTE; 
OPTR aly 


I PY 
DO WHILE ES ae OBUF; 
OBUF UF(I+1); 


EN 
ari sarugciaa peencayn) 
OBUF = OB 


ELSE "Cit PRINT CHAR (BELL) ; 
END DEL3SO; 


ESCAPE: rie Cok 2 
JF RNS OFF SPECIAL MEANING OF CHARACTER , FOLLOW 


DAND ENTERS CHARACTER IN NEW BUFFER * 


CALL PRINTCHARI (CHAR:=READC) ; 
NBUF(NPTR3=NPTR+1) = CHAR; 
Erp ESCAPE; 


oe peSSToRE.: 
ALL MOVESSTORE 
CATT GRE 
END CONTSFILL; 


PRINTSTAE: PROCEDURE; 
iF Maa + 5) > SIZESNBUF THEN 


ALL PRINTCHAR (BELL) ; 


SE 

ste Te ate os = TAB; 
CALL PRINTCHAR (TAB) ; 

END PRINTSTAB; 


DEDIE: ERGC CO URE; 
/™, READS CHARACTERS FROM THE CONSOLE ye awe EDITING 


USING THE PROCEDURES OF vA LINE B@ITOR 


OPTR = 0; NPTR = QO; 
DO WHILE NPTR < SIZESNBUF; 
I (Cer ai ae caae = CTLZ THEN /* CONTROL CHAR */ 


DO CASE CHAR 
/*-CAS' 0 NULL */ 


e 
’ 


do 





/* CASE 1 CONTROL A +*/ 
CALL BACKUP; 


7% GRSE 2 CONTROL B* 4/7 
CALL MOVESTOSOLD; 


/* CASE 3 CONTROL * / 
CALL COPYSONE; 


4 CASE 4 CONTROL D */ 
CALL PSMOVESON: 
GO TO ENDEDIT1: 

END; 


/* CASE 5 CONTROL E */ 
CALL ENTER; 


yY* CASE 6 CON@ROL F “*/ 
GO TO ENDEDIT2; 


Zt CASES / SCOMTROL CG. F/7 
CALL PRINTSBOTH; 


/* CASE CONTROL H ¥*/ 
CALL BSHOVESONS 


/* CASE 9 CONTROL I */ 
CALL PRINTSTAB; 


/* CASE 10 CONPRGL Dd “vy 
O TO ENDEDIT1; 


- CASE 11 COMPROL K */ 


/* CASE 12 CONTOL L */ 

CALL COPYSRMSOSN; 

/* CASE 13 CONTROL M */ 

GO TO ENDEDIT1; 

/* CASE 14 CONTROL N */ 

CALL BS$OSN; 

/* CASE 15 CONTROL O ¥*/ 

‘CALL COPYSON (READC, FALSE) ; 
* CASE 16 CONTROL P ¥*/ 


y 
CALL DELETE (TRUE) ; 


/* CASE 17 CONTROL Q * 
CALL DELSN; so 


/* CASE 18 CONTROL R */ 
CALL DISPLAY$RMSOSN; 


/* CASE 19 _CONTROL S  */ 
CALL DELS$O 


/* CASE 20 CONTROL T ¥*/ 
CALL CONTSFILL; 


/* CASE 21 CONTROL JU bY 
CALL COPYSON(TAB, FALSE 


/* CASE 22 CONTROL V */ 
CALL ESCAPE; 


A CASE 23 CONTROL W ¥*/ 
/* LATER */ 
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At ICR S Eee CONTROL X @/ 
CALL DELETE (FALSE) ; 


a 2) COMIROL Y°*/ 


CALL PSMOVESON: 
eupse MOVESTOSOLD: 
E @ 


/e& CASE 


26 CONTROL Z #* 
CALL COPYSON( 


READC, TRUE 


EN 
ELSE wk CHECK SPECIAL CASES */ 
IF CHAR = RUBOUT THEN 
CALL BACKUP; 


ELSE 
im’ CHAR = BOC 


it Ron /* INDICATES. END OR SCODED INFOO*,) 

aise DO; CALL MOVESTOSOLD; CALL ENDSDL; END; 
i? CHER = EER THEN 
ous DO; CALL MOVESTOSOLD; CALL ENDSERR; END; 
Tf CHAR = SOP THEN /* END OF PROMPT INFORMATION .*/ 

Big oe MOVESTOSOLD; CALL ENDSREC; END; 
Le Chats = BNDSEELE THEN. 7? END GF BILE #7 

ee MOVESTOSOLD; CALL END3SF; END; 

E 


O; 

CALL PRINTCHAR (CHAR) ; 

NBUF (NPTRi=NBTRS | =CHAR; 

Tf NOT(INSERT) THEN OPTR = OPTR + 1; 

Gar Net HEN CALL PRINTCHAR (BELL) ; 
END; we DO WHILE ¥*/ 
/* ARRIVE HERE IF BUFFER FULL */ 
CALL PRINTCHAR (BELL) ; 
ENDEDIT1: CALL MOVESTOSOLD; 
ENDEDIT2: 
END LEDIT; 
/* START MAIN PROGRAM HERE ¥*/ 
OLDSBUF = (NEWSBUF i= . BUFFER) +90; 
CALL MOVE(.'DAT', DAT $FCB+9,3) ; 

DF B f2} DFCB (32) 
MON2 (1 STSFCB) <> 255 THEN /*FILE EXISTS */ 


ioe 

"DO: 
CALL PRINT(.' PILE ALREADY EXISTS $'); 
GO TO BOOT; 


EMD; 
le aoe ee anal = 255 THEN 
CALL PRINT (. OUT OF DIRECTORY SPACE $'); 


wait TO BOOT; 

IF (DCPs =HON2 (15, DATSECR) ) = 255 THEN /* CAN'T OPEN ¥*/ 
CALL ERROR(2); 

CALE HONT (12,0) ; /* LIFT READ WRITE HEAD ¥*/ 

/* ARRIVE HERS WITH NEW FILE CREATED  ¥*/ 

DFCB(32) = 1; /* RESERVE FIRST RECORD FOR’ RECORD MAP */ 

THEM = (SBDOS ~ 1) AND MODS128SMASK; 

CALL FILL (-WEMORY, THEM , 0 

SPTR,RECORD$MAP = .MEMORY: 

BSTORE = .MEMORY + 128; 

STORE = BSTORE: 
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NUMSREC 
CALL PRI 


N LENGTH OF DATA LABELS TO Be USED?$"'); 
CALL PRIN 
L 


R (CHAR: =READC) ; 


T()'L 
TCHA 
CALL CRLF: 
SLEN = CHAR AND OFH; 
PT (0 
I 


EOF 
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